5 POKE53281,0:POKE53280,0:PRINT"[147][159]"
10 POKE55,.:POKE56,64:CLR
12 SYS57812"DIRTOVAR.O",8,0:POKE780,0:POKE781,0:POKE782,141:SYS65493
16 SYS57812"TP.DISK.O",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
18 SYS57812"TP.PRINT1.O",8,0:POKE780,0:POKE781,0:POKE782,200:SYS65493
20 SYS57812"TP.PRINT2.O",8,0:POKE780,0:POKE781,0:POKE782,204:SYS65493
105 REM       SETUP STUFF...
106 :
110 Q$=CHR$(34):C=54272
115 TP$="[147][150]   [212] [197] [216] [212]   [208] [210] [201] [206] [212] [197] [210]   1 9 9 0"
117 PR$="HOLD DOWN [193] TO PAUSE PRINTING "
118 CT$="([195])ONTINUE PRINTING    ([209])UIT "
120 DIM TY$(144),NA$(144),LE$(144),TD$(23),PC%(23)
130 GOSUB1000:IFQTTHENPRINTTP$:GOTO2000
140 PRINTTP$:PRINT"[159]  [201]NSERT THE DISK WITH THE "Q$"T."Q$" [159]FILES"
145 PRINTTAB(11)"AND PRESS [211][208][193][195][197][154]."
150 GETA$:IFA$<>" "THEN150
160 PRINTTP$:PRINT"[159][210]EADING ALL "Q$"PRG"Q$" [159]FILES WITH "Q$"T."Q$" [159]NAMES."
180 SYS36096:I=1:J=1
190 PRINTTP$
200 IFNA$(I)=""THEN225
210 IFLEFT$(NA$(I),2)="T."THENTD$(J)=NA$(I):J=J+1
220 I=I+1:GOTO200
225 IFJ=1THENPRINT"[159] [212]HERE ARE NO "Q$"T."Q$" [159]FILES ON THIS DISK.":GOTO2000
230 PRINT"[158]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][145]"
231 PRINTTAB(20-(LEN(NA$(0))/2)-1)"[179][129]"NA$(0)"[158][171]"
232 FORI=1TOJ-1:PRINT"  [158][221]"TAB(13)"[154]"TD$(I)TAB(36)"[158][221]":NEXT
234 PRINT"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
240 K=1
245 POKE214,22:PRINT:PRINT" [195][210][211][210] [159]KEYS SELECT  [211][208][193][195][197] [159]TOGGLE  [193] [159]ALL"
247 PRINT"     [198]1 [159]PRINT THE HIGHLIGHTED FILES"
250 POKE214,K+1:PRINT:PRINTTAB(10)"[153][192]>[145]":POKE198,0
260 GETA$:IFA$=""THEN260
261 PRINTTAB(10)"  [145]"
262 IFA$="[145]"THENK=K-1:IFK<1THENK=J-1
264 IFA$=""THENK=K+1:IFK>J-1THENK=1
265 IFA$<>"[133]"THEN268
266 POKE214,22:PRINT:PRINT"                                       "
267 FORM=1989TO2018:POKEM,ASC(MID$(PR$,M-1988,1)):POKEM+C,7:NEXT:GOTO300
268 IFA$<>"A"THEN280
269 PRINT"":FORI=1TOJ-1
270 IFPC%(I)=0THENPRINTTAB(13)""TD$(I):PC%(I)=1:GOTO274
272 IFPC%(I)THENPRINTTAB(13)"[154]"TD$(I):PC%(I)=0
274 NEXT:GOTO240
280 IFA$<>" "THEN250
282 IFPC%(K)THENPC%(K)=0:PRINTTAB(13)"[154]"TD$(K):GOTO250
284 PC%(K)=1:PRINTTAB(13)""TD$(K):GOTO250
300 FORI=1TOJ:IFPC%(I)=0THEN380
305 POKE214,I+1:PRINT:PRINT"[153][210]EADING[145]"
310 SYS 49155,16384,TD$(I)
315 EA=(PEEK(781)+PEEK(782)*256):POKE EA,.:POKEEA+1,13:POKE EA+2,13
320 OPEN4,4,7:Z=.:A$=""
321 IFPEEK(16384+Z)=13THEN323
322 A$=A$+CHR$(PEEK(16384+Z)):Z=Z+1:GOTO321
323 S=16384:IFLEFT$(A$,3)="^U:"THENS=16384+LEN(A$)+1
325 PRINT"[153][208]RINTING[145]"
329 POKE2,0
330 IF(FL)THEN SYS 52224,S:SP=59-PEEK(787)
340 IFFL=0THEN SYS 51200,S:SP=PEEK(787)+5
344 IFPEEK(2)=0THEN360
345 SYS65484
346 FORM=1989TO2018:POKEM,ASC(MID$(CT$,M-1988,1)):POKEM+C,7:NEXT
347 GETA$:IFA$<>"C"ANDA$<>"Q"THEN347
348 IFA$="Q"THENI=J:NEXT:PRINT#4:CLOSE4:GOTO2000
349 FORM=1989TO2018:POKEM,ASC(MID$(PR$,M-1988,1)):POKEM+C,7:NEXT
350 POKE2,.
351 IF(FL)THENPOKE781,4:SYS65481:           SYS52486:SP=59-PEEK(787)
352 IFFL=0THENPOKE781,4:SYS65481:           SYS51318:SP=PEEK(787)+5
354 IFPEEK(2)=1THEN346
360 FOR B=1 TO SP:PRINT#4:NEXT:CLOSE4
370 POKE214,I+1:PRINT:PRINT"        "
380 NEXTI:GOTO2000
1000 POKE53281,0:POKE53280,0
1010 PRINT"[147][159]"TP$
1030 PRINT"[153]    BY [205]IKE [205]AYNARD AND [198]ENDER [212]UCKER"
1040 PRINT"[154]    [212]HIS PROGRAM SHOWS YOU THE NAMES OF"
1050 PRINT" ALL OF THE "Q$"T."Q$" [154]FILES ON A DISK AND"
1060 PRINT" ALLOWS YOU TO PRINT OUT ALL OF THEM OR
1070 [153]" JUST THE ONES YOU WANT."
1092 [153]"    (null)AKE SURE YOUR PRINTER IS ON-LINE"
1094 [153]" AND THE PRINT HEAD IS SET TO THE TOP"
1096 [153]" OF A PAGE."
1098 [153]"    (null)HESE ARE YOUR OPTIONS:"
1100 [153]"       OPEN((null)OPEN)WO COLUMNS"
1110 [153]"       OPEN((null)OPEN)INGLE COLUMN IN MID-PAGE"
1120 [153]"       OPEN((null)OPEN)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null) PEEK(null)RIGHT$VALASC(null)"
1130 [153]"          CONT(null)RESS  (null)CONT, (null) OR (null)"
1140 [161]A$:[139]A$[179][177]"T"[175]A$[179][177]"S"[175]A$[179][177]"R"[167]1140
1145 [139]A$[178]"R"[167]QT[178]1:[142]
1150 FL[178]0:[139]A$[178]"T"[167]FL[178]1
1160 [142]
2000 [153]"LOAD":[153][163]8)"CONT(STR$CONT)O ANOTHER DISK"
2005 [153][163]8)"CONT((null)CONT)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null) PEEKRIEFS"
2010 [151]198,.
2020 [161]A$:[139]A$[179][177]"D"[175]A$[179][177]"R"[167]2020
2030 [139]A$[178]"D"[167][138]110
2040 [159]15,8,15,"R0:LOADSTAR BRIEFS=LOADSTAR BRIEFS":[132]15,ER:[160]15
2050 [139]ER[179][177]63[167][128]
2060 [153]"LOADSTOPLOAD"Q$"LOADSTAR BRIEFS"Q$",8"
2070 [153]"RUN"
2080 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:TEXT PRINTER":[160]15:[148]"TEXT PRINTER",8:[128]